home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / OPTSETWK.PRG < prev    next >
Text File  |  1986-07-19  |  6KB  |  246 lines

  1.   SELECT 4
  2.   USE DATAOPTN
  3.   N7='Z'
  4.   GO N
  5.   SELECT 5
  6.   USE DATADUP
  7.   APPEND BLANK
  8.     REPLACE PAPEROU WITH D->PAPEROU
  9.     REPLACE SPACIN WITH D->SPACIN
  10.     REPLACE DUPRE WITH D->DUPRE
  11.     REPLACE TVAI WITH D->TVAI
  12.     REPLACE SERI WITH D->SERI
  13.     REPLACE INSTNAM WITH D->INSTNAM
  14.     REPLACE TVANUMBE WITH D->TVANUMBE
  15.     REPLACE SERIALNU WITH D->SERIALNU
  16.     REPLACE OS WITH D->OS
  17.     REPLACE CALIBDAT WITH D->CALIBDAT
  18.     REPLACE DUEDAT WITH D->DUEDAT
  19.     REPLACE CALINTERV WITH D->CALINTERV
  20.     REPLACE LOCATNAM WITH D->LOCATNAM
  21.     REPLACE REMARKN WITH D->REMARKN
  22.     REPLACE CATEGOR1 WITH D->CATEGOR1
  23.     REPLACE CATEGOR2 WITH D->CATEGOR2
  24.     REPLACE CATEGOR3 WITH D->CATEGOR3
  25.     REPLACE SUBCA1 WITH D->SUBCA1
  26.     REPLACE SUBCA2 WITH D->SUBCA2
  27.     REPLACE SUBCA3 WITH D->SUBCA3
  28.     REPLACE SUB1AB WITH D->SUB1AB
  29.     REPLACE SUB2AB WITH D->SUB2AB
  30.     REPLACE SUB3AB WITH D->SUB3AB
  31.     REPLACE CAT3AB WITH D->CAT3AB
  32.     REPLACE TITLE WITH D->TITLE
  33.   SET FORMAT TO OPTIONS.FMT
  34.   DO WHILE N7#'Y'
  35.    EDIT
  36.    DO WHILE N7#'Y'
  37.    CLEAR
  38.    @ 7,0 SAY 'Press RETURN to cancel modifications and return to the previous ;
  39. menu.'
  40.    @ 2,0 
  41.    WAIT '     Are you finished modifying the options ?  (Y/N)' TO N7
  42.    ??'    WORKING . . .'
  43.    N7=UPPER(N7)
  44.    IF N7='N'
  45.     EXIT
  46.    ENDIF
  47.    IF ASC(N7)=0
  48.     ZAP
  49.     USE
  50.     SELECT 4
  51.     USE
  52.     RETURN
  53.    ENDIF
  54.    ENDDO
  55.    IF N7='N'
  56.     LOOP
  57.    ENDIF
  58.     GO TOP
  59.     SELECT 4
  60.    IF E->PAPEROU>0
  61.     REPLACE PAPEROU WITH E->PAPEROU
  62.    ELSE
  63.     REPLACE PAPEROU WITH 44
  64.    ENDIF
  65.    IF E->SPACIN>0
  66.     REPLACE SPACIN WITH E->SPACIN
  67.    ELSE
  68.     REPLACE SPACIN WITH 2
  69.    ENDIF
  70.    IF UPPER(E->DUPRE) ='Y'.OR. UPPER(E->DUPRE) = 'N'
  71.     REPLACE DUPRE WITH LTRIM(UPPER(E->DUPRE))
  72.    ELSE
  73.     REPLACE DUPRE WITH 'N'
  74.    ENDIF
  75.    IF UPPER(E->TVAI) ='Y'.OR.UPPER(E->TVAI) ='N'
  76.     REPLACE TVAI WITH UPPER(E->TVAI)
  77.    ELSE
  78.     REPLACE TVAI WITH 'Y'
  79.    ENDIF
  80.    IF UPPER(E->SERI) ='Y'.OR. UPPER(E->SERI) = 'N'
  81.     REPLACE SERI WITH UPPER(E->SERI)
  82.    ELSE
  83.     REPLACE SERI WITH 'N'
  84.    ENDIF
  85.    IF LEN(TRIM(E->INSTNAM))>0
  86.     REPLACE INSTNAM WITH LTRIM(E->INSTNAM)
  87.    ELSE
  88.     REPLACE INSTNAM WITH 'COLUMN 1'
  89.    ENDIF
  90.    IF LEN(TRIM(E->TVANUMBE))>0
  91.     REPLACE TVANUMBE WITH LTRIM(E->TVANUMBE)
  92.    ELSE
  93.     REPLACE TVANUMBE WITH 'MAIN ID CODE'
  94.    ENDIF
  95.    IF LEN(TRIM(E->SERIALNU))>0
  96.     REPLACE SERIALNU WITH LTRIM(E->SERIALNU)
  97.    ELSE
  98.     REPLACE SERIALNU WITH 'COLUMN 2'
  99.    ENDIF
  100.    IF LEN(TRIM(E->OS))>0
  101.     REPLACE OS WITH LTRIM(E->OS)
  102.    ELSE
  103.     REPLACE OS WITH 'DATABASE '+LTRIM(STR(N))
  104.    ENDIF
  105.    IF LEN(TRIM(E->CALIBDAT))>0
  106.     REPLACE CALIBDAT WITH LTRIM(E->CALIBDAT)
  107.    ELSE
  108.     REPLACE CALIBDAT WITH 'DATE #1'
  109.    ENDIF
  110.    IF LEN(TRIM(E->DUEDAT))>0
  111.     REPLACE DUEDAT WITH LTRIM(E->DUEDAT)
  112.    ELSE
  113.     REPLACE DUEDAT WITH 'NEXT DATE'
  114.    ENDIF
  115.    IF LEN(TRIM(E->CALINTERV))>0
  116.     REPLACE CALINTERV WITH LTRIM(E->CALINTERV)
  117.    ELSE
  118.     REPLACE CALINTERV WITH 'TIME INT'
  119.    ENDIF
  120.    IF LEN(TRIM(E->LOCATNAM))>0
  121.     REPLACE LOCATNAM WITH LTRIM(E->LOCATNAM)
  122.    ELSE
  123.     REPLACE LOCATNAM WITH 'COLUMN 6'
  124.    ENDIF
  125.    IF LEN(TRIM(E->REMARKN))>0
  126.     REPLACE REMARKN WITH LTRIM(E->REMARKN)
  127.    ELSE
  128.     REPLACE REMARKN WITH 'REMARK'
  129.    ENDIF
  130.    IF LEN(TRIM(E->CATEGOR1))>0
  131.     REPLACE CATEGOR1 WITH LTRIM(E->CATEGOR1)
  132.    ELSE
  133.     REPLACE CATEGOR1 WITH 'CATEGORY 1'
  134.    ENDIF
  135.    IF LEN(TRIM(E->CATEGOR2))>0
  136.     REPLACE CATEGOR2 WITH LTRIM(E->CATEGOR2)
  137.    ELSE
  138.     REPLACE CATEGOR2 WITH 'CATEGORY 2'
  139.    ENDIF
  140.    IF LEN(TRIM(E->CATEGOR3))>0
  141.     REPLACE CATEGOR3 WITH LTRIM(E->CATEGOR3)
  142.    ELSE
  143.     REPLACE CATEGOR3 WITH 'CATEGORY 3'
  144.    ENDIF
  145.    IF LEN(TRIM(E->SUBCA1))>0
  146.     REPLACE SUBCA1 WITH LTRIM(E->SUBCA1)
  147.    ELSE
  148.     REPLACE SUBCA1 WITH 'Subcategory 1'
  149.    ENDIF
  150.    IF LEN(TRIM(E->SUBCA2))>0
  151.     REPLACE SUBCA2 WITH LTRIM(E->SUBCA2)
  152.    ELSE
  153.     REPLACE SUBCA2 WITH 'Subcategory 2'
  154.    ENDIF
  155.    IF LEN(TRIM(E->SUBCA3))>0
  156.     REPLACE SUBCA3 WITH LTRIM(E->SUBCA3)
  157.    ELSE
  158.     REPLACE SUBCA3 WITH 'Subcategory 3'
  159.    ENDIF
  160.    IF LEN(TRIM(E->SUB1AB))>0
  161.     REPLACE SUB1AB WITH UPPER(LTRIM(E->SUB1AB))
  162.    ELSE
  163.     REPLACE SUB1AB WITH '.1.'
  164.    ENDIF
  165.    IF LEN(TRIM(E->SUB2AB))>0
  166.     REPLACE SUB2AB WITH UPPER(LTRIM(E->SUB2AB))
  167.    ELSE
  168.     REPLACE SUB2AB WITH '.2.'
  169.    ENDIF
  170.    IF LEN(TRIM(E->SUB3AB))>0
  171.     REPLACE SUB3AB WITH UPPER(LTRIM(E->SUB3AB))
  172.    ELSE
  173.     REPLACE SUB3AB WITH '.3.'
  174.    ENDIF
  175.    IF LEN(TRIM(E->CAT3AB))>0
  176.     REPLACE CAT3AB WITH UPPER(LTRIM(E->CAT3AB))
  177.    ELSE
  178.     REPLACE CAT3AB WITH '.C3.'
  179.    ENDIF
  180.    IF LEN(TRIM(E->TITLE))>0
  181.     REPLACE TITLE WITH LTRIM(E->TITLE)
  182.    ELSE
  183.     REPLACE TITLE WITH 'RECORD LISTING IN '+OS
  184.    ENDIF
  185.    OSS=TRIM(OS)
  186.    DO CASE
  187.     CASE N=1
  188.      DATABASE1=OSS
  189.     CASE N=2
  190.      DATABASE2=OSS
  191.     CASE N=3
  192.      DATABASE3=OSS
  193.     CASE N=4
  194.      DATABASE4=OSS
  195.     CASE N=5
  196.      DATABASE5=OSS
  197.     CASE N=6
  198.      DATABASE6=OSS
  199.     CASE N=7
  200.      DATABASE7=OSS
  201.     CASE N=8
  202.      DATABASE8=OSS
  203.     CASE N=9
  204.      DATABASE9=OSS
  205.     CASE N=10
  206.      DATABASE10=OSS
  207.     CASE N=11
  208.      DATABASE11=OSS
  209.     CASE N=12
  210.      DATABASE12=OSS
  211.     CASE N=13
  212.      DATABASE13=OSS
  213.     CASE N=14
  214.      DATABASE14=OSS
  215.     CASE N=15
  216.      DATABASE15=OSS
  217.     CASE N=16
  218.      DATABASE16=OSS
  219.     CASE N=17
  220.      DATABASE17=OSS
  221.     CASE N=18
  222.      DATABASE18=OSS
  223.     CASE N=19
  224.      DATABASE19=OSS
  225.     CASE N=20
  226.      DATABASE20=OSS
  227.     ENDCASE
  228.     SAVE ALL LIKE DATABASE* TO DATANAME
  229.     USE
  230.     SELECT 5
  231.     ZAP
  232.     USE
  233.     SELECT 1
  234.     RETURN
  235.   ENDDO   
  236. RETURN
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.